#!/usr/bin/perl

open(FILE,$ARGV[0]);
open(OUT,">$ARGV[0].new");
while(<FILE>){
	chomp;
	$line=$_;
	$line=~s//\n/g;
	print OUT $line."\n";
}
close(OUT);
close(FILE);
